home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / cadence.zip / VOL1NO3.ZIP / TXTIN.LSP < prev    next >
Text File  |  1980-01-01  |  1KB  |  34 lines
  1. (defun C:TXTIN (/ va);V1.20
  2. ;By Scott Hull, 07-24-86
  3. ;SAH Mechanical Design (415) 343-4015
  4. ;Imports ASCII text files
  5.  
  6. (defun *error* (st) (prompt (strcat "error: "  st "\007\n")))
  7.  
  8. (defun FA (/ vb vc ve vf vg vh vi)
  9. (setq vb (read-line va) vc (getstring "\nStyle name <STANDARD>: "))
  10. (if (= vc "") (setq vc "STANDARD"))
  11. (setq ve (getpoint "\nStarting point: "))
  12. (setq vf (getdist ve
  13.    (strcat "\nHeight <"
  14.    (rtos (getvar "TEXTSIZE") (getvar "LUNITS")  (getvar "LUPREC")) ">: ")))
  15. (if (= vf nil) (setq vf (getvar "TEXTSIZE")))
  16. (setq vg (getangle ve "\nRotation Angle <0>: "))
  17. (if (= vg nil) (setq vg 0.0))
  18. (setq vh (getvar "AUNITS"))
  19. (setvar "AUNITS" 4)
  20. (setq vi (getvar "BLIPMODE"))
  21. (setvar "BLIPMODE" 0)
  22. (setvar "CMDECHO" 0)
  23. (command "TEXT" "S" vc ve vf vg vb)
  24. (while (/= vb nil)
  25.   (setq ve (polar ve (+ vg (* 1.5 pi)) (* (/ 5.0 3.0) vf )))
  26.   (setq vb (read-line va))
  27.   (command "TEXT" ve "" "" vb ))
  28. (setvar "BLIPMODE" vi)
  29. (setvar "AUNITS" vh)
  30. (close va))
  31.  
  32. (setq va (open (getstring "\nName of ASCII file to insert: ") "r"))
  33. (if (/= va nil) (FA) (prompt "File not found - try again\007\n")))
  34.